﻿Public Class form_belajar

    Private Sub PictureBox4_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox4.Click
        form_beginner.Show()
        Me.Close()
    End Sub

    Private Sub form_belajar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Visible = False
    End Sub

    Private Sub CommonPictureBox_ClickHandler(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PicHa.Click, PicNa.Click, PicCa.Click, PicRa.Click, PicKa.Click, PicDa.Click, PicTa.Click, PicSa.Click, PicWa.Click, PicLa.Click, PicPa.Click, PicDha.Click, PicJa.Click, PicYa.Click, PicNya.Click, PicMa.Click, PicGa.Click, PicBa.Click, PicTha.Click, PicNga.Click
        Dim pbxSender As PictureBox = DirectCast(sender, PictureBox)
        Dim i As Integer = Convert.ToInt32(pbxSender.Tag)
        PicBesar.Image = ImageList1.Images(i)
        PicContoh.Image = ImageList2.Images(i)
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        Dim kelas As New player
        kelas.belajar()
        CheckBox1.Visible = False
        Label1.Visible = True
    End Sub
End Class